home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / patches / xpkdopus.lha / xpkdopus5 / xpk.dopus next >
Text File  |  1995-11-27  |  1KB  |  12 lines
  1. /*rx - bad style ?? ;-)*/
  2. options results
  3. signal on syntax;signal on ioerr;signal on error;parse arg dopusport modus addargs;if dopusport~="" then address value dopusport
  4. lister query source;parse var RESULT handle .;if rc>0 then exit;lister query handle numselentries;entries=RESULT
  5. if entries<1 then break;lister set handle busy 1;do j=1 TO entries;lister query handle path;selpath = RESULT;lister query handle firstsel;selentry = RESULT
  6. lister query handle entry selentry stem fileinfo.
  7. if fileinfo.type<1 then do;lister select handle selentry off;lister set handle progress 100 selentry
  8. address command "xpkdopus" "DIR" selpath "FILE" selentry modus addargs "LISTER" handle "REXXPORT" dopusport
  9. end;else dopus request '"'selentry 'is not a file' '"' "Ok";lister query handle abort;if RESULT then signal error
  10. lister clear handle progress;lister refresh handle;end;syntax:;ioerr:;error:;
  11. lister clear handle progress;lister set handle busy 0;lister query handle path;lister read handle RESULT force
  12.